function [] = PrintVRML( filename, data, predictedLabels )

[numDataPoints, cols] = size(data);
file = fopen(filename, 'w');
    fprintf(file, ...
        '#VRML V2.0 utf8\n Shape {\n geometry PointSet { \n coord Coordinate { \n');
    fprintf(file,'point [\n');
    
    for i = 1:numDataPoints
        fprintf(file, '%f, %f, %f,\n', data(i,1), data(i, 2), data(i, 3)); 
    end
    fprintf(file,']\n}\n');
    fprintf(file,'color Color {\n color [\n');
    
    
    for i = 1:numDataPoints
        fprintf(file, '%f, %f, %f,\n', predictedLabels(i,1), ...
            predictedLabels(i, 1), predictedLabels(i, 1)); 
    end
    
    fprintf(file,']\n}\n}\n}\n');
    fclose(file);

end

